inherited rstExempters: TrstExempters
  Top = 321
  HelpContext = 1142
  ActiveControl = dteBDate
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1056#1077#1077#1089#1090#1088' '#1083#1100#1075#1086#1090#1085#1080#1082#1086#1074
  Position = poMainFormCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Left = 561
  end
  inherited ToolBar1: TToolBar
    inherited ToolButton1: TToolButton
      Visible = False
    end
    inherited ToolButton7: TToolButton
      Visible = False
    end
  end
  inherited Panel1: TPanel
    Left = 566
    Width = 278
    inherited TfraAddress1: TfraAddress
      Top = 144
      Width = 278
      Height = 207
      TabOrder = 1
      inherited SearchBox: TGroupBox
        Width = 278
        Height = 207
        inherited SubPanel: TPanel
          Width = 274
          Height = 190
          inherited Label6: TLabel
            Left = 7
            Width = 100
            Alignment = taRightJustify
            AutoSize = False
          end
          inherited Label5: TLabel
            Left = 7
            Top = 34
            Width = 100
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1060#1048#1054' '#1083#1100#1075#1086#1090#1085#1080#1082#1072
          end
          inherited Label4: TLabel
            Left = 7
            Top = 126
            Width = 100
            Alignment = taRightJustify
            AutoSize = False
          end
          inherited Label3: TLabel
            Left = 7
            Top = 103
            Width = 100
            Alignment = taRightJustify
            AutoSize = False
          end
          inherited Label2: TLabel
            Left = 7
            Top = 80
            Width = 100
            Alignment = taRightJustify
            AutoSize = False
          end
          inherited Label1: TLabel
            Left = 7
            Top = 57
            Width = 100
            Alignment = taRightJustify
            AutoSize = False
          end
          inherited TownBox: TDBLookupComboboxEh
            Left = 115
            Top = 54
          end
          inherited StreetBox: TDBLookupComboboxEh
            Left = 115
            Top = 77
          end
          inherited NLSEdit: TDBEditEh
            Left = 115
          end
          inherited NameEdit: TDBEditEh
            Left = 115
            Top = 31
          end
          inherited HouseBox: TDBLookupComboboxEh
            Left = 115
            Top = 100
          end
          inherited FindBtn: TButton
            Left = 18
            Top = 153
            Caption = #1055#1086#1080#1089#1082
          end
          inherited ClearBtn: TButton
            Left = 98
            Top = 153
            OnClick = TfraAddress1ClearBtnClick
          end
          inherited AppartBox: TDBLookupComboboxEh
            Left = 115
            Top = 123
          end
          inherited AddBtn: TButton
            Left = 178
            Top = 153
          end
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trRefer
      end
      inherited QHouses: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trRefer
      end
      inherited QTowns: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trRefer
      end
      inherited QApparts: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trRefer
      end
    end
    inherited GroupBox1: TGroupBox
      Width = 278
      Height = 144
      TabOrder = 0
      object Label6: TLabel
        Left = 7
        Top = 26
        Width = 100
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1053#1072#1095#1072#1083#1086' '#1076#1077#1081#1089#1090#1074#1080#1103' '#1089
      end
      object Label1: TLabel
        Left = 178
        Top = 26
        Width = 19
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1087#1086
      end
      object Label2: TLabel
        Left = 7
        Top = 72
        Width = 100
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1058#1080#1087' '#1083#1100#1075#1086#1090#1099
      end
      object Label3: TLabel
        Left = 7
        Top = 118
        Width = 100
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1044#1086#1082#1091#1084#1077#1085#1090
      end
      object Label4: TLabel
        Left = 7
        Top = 95
        Width = 100
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1041#1102#1076#1078#1077#1090
      end
      object Label5: TLabel
        Left = 7
        Top = 49
        Width = 100
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1050#1086#1085#1077#1094' '#1076#1077#1081#1089#1090#1074#1080#1103' '#1089
      end
      object Label7: TLabel
        Left = 178
        Top = 49
        Width = 19
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1087#1086
      end
      object dteBDate: TDBDateTimeEditEh
        Left = 115
        Top = 22
        Width = 62
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 0
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
      object dteEDate: TDBDateTimeEditEh
        Left = 205
        Top = 22
        Width = 62
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 1
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
      object lcbExType: TDBLookupComboboxEh
        Left = 115
        Top = 68
        Width = 152
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Sizable = True
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_Exempttypes
        TabOrder = 4
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
      object lcbBudget: TDBLookupComboboxEh
        Left = 115
        Top = 91
        Width = 152
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Sizable = True
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_Budget
        TabOrder = 5
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
      object dteBEDate: TDBDateTimeEditEh
        Left = 115
        Top = 45
        Width = 62
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 2
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
      object dteEEDate: TDBDateTimeEditEh
        Left = 205
        Top = 45
        Width = 62
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 3
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
      object dbeDocNum: TDBEditEh
        Left = 115
        Top = 114
        Width = 152
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        TabOrder = 6
        Visible = True
        OnKeyPress = dteBDateKeyPress
      end
    end
    inherited TfraSubstanceInfo1: TfraSubstanceInfo
      Top = 351
      Width = 278
      Height = 218
      Visible = False
      inherited TopPanel: TPanel
        Width = 278
        Height = 0
      end
      inherited BottomPanel: TPanel
        Top = 218
        Width = 278
        Height = 0
      end
      inherited PageControl: TPageControl
        Top = 0
        Width = 278
        Height = 218
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Width = 270
            Height = 187
          end
        end
      end
      inherited QSubstanceInfo: TpFIBDataSet
        UpdateTransaction = trRefer
        DataSource = nil
      end
    end
  end
  inherited Panel2: TPanel
    Width = 561
    inherited Splitter2: TSplitter
      Top = 569
      Width = 561
      Height = 0
    end
    inherited GroupBox2: TGroupBox
      Top = 569
      Width = 561
      Height = 0
      inherited DetailGrid: TDBGridEh
        Width = 557
      end
    end
    inherited Panel3: TPanel
      Width = 561
      Height = 569
      inherited dbgRefer: TDBGridEh
        Width = 561
        Height = 569
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RABON_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RCLIENT_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RNAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REXEMPT'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RVAL'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RBDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REXEMPT_DOC'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RTOWN'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSTREET'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RHOUSE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RFLAT_NUM'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RAPPARTS'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RLETTER'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RNLS'
            Footers = <>
            Visible = False
          end>
      end
    end
  end
  inherited dsRefer: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RABON_ID,'
      '    RCLIENT_ID,'
      '    RNAME,'
      '    REXEMPT,'
      '    RVAL,'
      '    RBDATE,'
      '    REDATE,'
      '    REXEMPT_DOC,'
      '    RTOWN,'
      '    RSTREET,'
      '    RHOUSE,'
      '    RFLAT_NUM,'
      '    RAPPARTS,'
      '    RLETTER,'
      '    RNLS'
      'FROM'
      '    PROC_V_LGOTERS(:PBDATE,'
      '    :PEDATE,'
      '    :PEXEMPTYPE_ID,'
      '    :PBUDGET_TYPE,'
      '    :PDOCNO,'
      '    :PNAME_LIKE,'
      '    :PNLS,'
      '    :PTOWN_ID,'
      '    :PSTREET_ID,'
      '    :PBUILDING_ID,'
      '    :PABONENT_ID,'
      '    :PPARAM_STR) ')
    AutoUpdateOptions.UpdateTableName = 'PROC_V_LGOTERS(:PBDATE'
    AutoUpdateOptions.KeyFields = 'RCLIENT_ID'
    AfterCancel = nil
    AfterEdit = nil
    AfterInsert = nil
    AfterOpen = nil
    AfterRefresh = nil
    Database = MAINDM.pMainDatabase
    object dsReferRABON_ID: TFIBIntegerField
      FieldName = 'RABON_ID'
      Visible = False
    end
    object dsReferRCLIENT_ID: TFIBIntegerField
      FieldName = 'RCLIENT_ID'
      Visible = False
    end
    object dsReferRNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      DisplayWidth = 20
      FieldName = 'RNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferREXEMPT: TFIBStringField
      DisplayLabel = #1051#1100#1075#1086#1090#1072
      DisplayWidth = 25
      FieldName = 'REXEMPT'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRVAL: TFIBBCDField
      DisplayLabel = #1057#1090#1072#1074#1082#1072' '#1083#1100#1075#1086#1090#1099
      FieldName = 'RVAL'
      Size = 2
      RoundByScale = True
    end
    object dsReferRBDATE: TFIBDateField
      DisplayLabel = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1089
      DisplayWidth = 12
      FieldName = 'RBDATE'
    end
    object dsReferREDATE: TFIBDateField
      DisplayLabel = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1087#1086
      DisplayWidth = 12
      FieldName = 'REDATE'
    end
    object dsReferREXEMPT_DOC: TFIBStringField
      DisplayLabel = #8470' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
      DisplayWidth = 15
      FieldName = 'REXEMPT_DOC'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferRTOWN: TFIBStringField
      DisplayLabel = #1043#1086#1088#1086#1076
      DisplayWidth = 10
      FieldName = 'RTOWN'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferRSTREET: TFIBStringField
      DisplayLabel = #1059#1083#1080#1094#1072
      DisplayWidth = 12
      FieldName = 'RSTREET'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRHOUSE: TFIBStringField
      DisplayLabel = #8470' '#1076#1086#1084#1072
      DisplayWidth = 8
      FieldName = 'RHOUSE'
      Size = 30
      EmptyStrToNull = True
    end
    object dsReferRFLAT_NUM: TFIBStringField
      DisplayLabel = #8470' '#1082#1074'.'
      DisplayWidth = 6
      FieldName = 'RFLAT_NUM'
      EmptyStrToNull = True
    end
    object dsReferRAPPARTS: TFIBIntegerField
      FieldName = 'RAPPARTS'
      Visible = False
    end
    object dsReferRLETTER: TFIBStringField
      FieldName = 'RLETTER'
      Visible = False
      Size = 10
      EmptyStrToNull = True
    end
    object dsReferRNLS: TFIBStringField
      FieldName = 'RNLS'
      Visible = False
      EmptyStrToNull = True
    end
  end
  inherited Timer1: TTimer
    Left = 520
    Top = 193
  end
  inherited PropStorage: TPropStorageEh
    Section = 'rstExempters'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'Panel2.GroupBox2.<P>.Height'
      'Panel2.Panel3.dbgRefer.<P>.Columns.ColumnsIndex'
      'Panel2.Panel3.dbgRefer.<P>.Columns.<ForAllItems>.Width')
  end
  object dsc_Exempttypes: TDataSource [15]
    DataSet = ds_Exempttypes
    Left = 764
    Top = 72
  end
  object ds_Exempttypes: TpFIBDataSet [16]
    SelectSQL.Strings = (
      
        'select -1 as id, cast('#39#1055#1086' '#1074#1089#1077#1084' '#1090#1080#1087#1072#1084#39' as varchar(120)) as name, ' +
        '1 '
      '  from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME, 2'
      'FROM'
      '    EXEMPTTYPES '
      'order by 3, 2')
    Transaction = trList
    Database = MAINDM.pMainDatabase
    Left = 728
    Top = 72
    object ds_ExempttypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ExempttypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Budget: TDataSource [17]
    DataSet = ds_Budget
    Left = 764
    Top = 108
  end
  object ds_Budget: TpFIBDataSet [18]
    SelectSQL.Strings = (
      
        'select -1 as id, cast('#39#1055#1086' '#1074#1089#1077#1084' '#1074#1080#1076#1072#1084#39' as varchar(60)) as name, 1' +
        ' '
      '  from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME, 2'
      'FROM'
      '    RBUDGET_TYPE '
      'order by 3, 2')
    Transaction = trList
    Database = MAINDM.pMainDatabase
    Left = 728
    Top = 108
    object ds_BudgetID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_BudgetNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
  end
end
